home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Demos / DEMOS2.LHZ / +] med res (.txt) < prev    next >
Commodore BASIC  |  1993-12-17  |  511b  |  15 lines
  1. 5 IFGTHEN100
  2. 10 Y=0:PRINT"[147] MEDIUM RESOLUTION DEMO "
  3. 20 PRINT"[150]SEE THE [153]R[150]EGULAR OR [153]C[150]OMPILED VERSION?"
  4. 30 PRINT"(THE COMPILED VERSION IS BETTER)"
  5. 40 PRINT"PLEASE ENTER [153]<R>[150] OR [153]<C>[150]."
  6. 50 Y=Y+1:GETX$:IFX$=""ANDY<700THEN50
  7. 60 IFX$<>"R"ANDX$<>"C"ANDX$<>""THEN50
  8. 70 E$="":IFX$="C"ORX$=""THENE$="C/":PRINT"[153]<COMPILED>[150] COMING UP":GOTO90
  9. 80 PRINT"[153]<REGULAR>[150] COMING UP"
  10. 90 FORA=1TO1500:NEXT:PRINT"[147]"
  11. 100 G=G+1:ONGGOTO110,120
  12. 110 LOAD"MED RES",8,1
  13. 120 PRINT"[147][144]LOAD"CHR$(34)E$"MED RES DEMO"CHR$(34)",8";
  14. 130 POKE198,4:POKE631,13:POKE632,82:POKE633,213:POKE634,13:NEW
  15.